home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ASME's Mechanical Engine…ing Toolkit 1997 December
/
ASME's Mechanical Engineering Toolkit 1997 December.iso
/
basic
/
qtool4.lzh
/
AECOMMON.BAS
next >
Wrap
BASIC Source File
|
1987-02-13
|
2KB
|
42 lines
rem $linesize:132
rem $title:'(c) Copyright 1987, Roy Barrow.'
rem $subtitle:'COMMON definitions for use with AELIB.'
'
' These COMMON definitions should be placed right at the start of
' Application Engineer programs, with the INCLUDE meta command.
' Refer to page -188- of the Microsoft QuickBASIC 2.00 Compiler Guide.
'
' This revision: 10-January-1987
' Application Engineer (c) Copyright 1986,1987 Roy Barrow
'
OPTION BASE 0 ' For no underflow
DIM idx.nam$(10%),xk$(10%,6%),xh%(10%,4%) ' Index variables
DIM ae.screens%(10000%) ' Screen holding
DIM ae.fg%(10%),ae.bg%(10%),ae.hg%(10%) ' Colors
DIM dialog$(8%) ' Dialog text
DIM ae.menu$(70%),ae.op%(70%),ae.hlp%(70%) ' Menu options
DIM ae.ffld$(300%),ae.ffpr%(300%),ae.flp%(20%,2%) ' File fielding
DIM ae.dirs$(10%) ' AE directories
COMMON /AE.INDEX/ idx.nam$(),xk$(),xh%() ' Index variables
COMMON /AE.COLOR/ ae.fg%(),ae.bg%(),ae.hg%() ' Color attributes
COMMON /AE.ERR/ aesb.fatal%,aesb.warning% ' Sub Routine Errors
COMMON /AE.SCBUF/ ae.screens%(),ae.sstack% ' Screen control
COMMON /AE.DIALOG/ dialog$() ' Dialog boxes
COMMON /AE.MENUS.1/ ae.menu$(),ae.op%(),ae.hlp%() ' Pull Down Menus
COMMON /AE.MENUS.2/ mcount%,menu%,menop% ' Pull Down Menus
COMMON /AE.FIELDS/ ae.ffld$(),ae.ffpr%(),ae.flp%() ' File fielding
COMMON /AE.CONTROL/ ae.dirs$(),ae.sernum$ ' Controls
'
' *NOTE* All of the above variables should in NO WAY be redefined or
' tampered with. By doing so, the performance of AELIB routines
' will be altered unexpectedly. Many of the variables will
' contain garbage until initialised. Most of these variables
' will be initialised by subroutines.